home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / QUIKDB.ZIP / GETFDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-10-16  |  1001 b   |  30 lines
  1. uses getfield,Crt;
  2.  
  3. Var
  4.   ReturnVal : Integer;
  5.   TempStr  : Array[1..10] of string;
  6.   CH        : Char;
  7.  
  8. begin
  9.   FillChar(TempStr,SizeOf(TempStr),#0);
  10.   TempStr[2] := 'This field already has data';
  11.  
  12. {------ Here's an example of the caling sequence for getfield ------}
  13.  
  14.   SetUp_Field($1f,$30,$1f,$30,' ',TRUE,TRUE,FALSE,TRUE,TRUE,TRUE);
  15.  
  16.   Field_Str(10,06,35,' Alpha Numeric: ',TempStr[1],'@A');
  17.   Field_Str(10,08,35,'     UpperCase: ',TempStr[2],'@!');
  18.   Field_Str(10,10,01,'Logical T or F: ',TempStr[3],'L');
  19.   Field_Str(10,12,25,'      Any Type: ',TempStr[4],'');
  20.   Field_Str(10,14,01,'  Y or N input: ',TempStr[5],'Y');
  21.   Field_Str(10,16,25,'       Numeric: ',TempStr[6],'@#');
  22.   Field_Str(10,18,25,'       Decimal: ',TempStr[7],'@9:2');
  23.   Field_Str(10,20,14,'         Phone: ',TempStr[8],'(###) ###-####');
  24.   Field_Str(10,22,08,'          Date: ',TempStr[9],'@D');
  25.  
  26.   Do_Fields(ReturnVal);
  27.  
  28. {----- That's all there is to it ------------------------------------}
  29. end.
  30.